home *** CD-ROM | disk | FTP | other *** search
/ The Mac 13 / the-mac-13.iso / On The Rom / 100 Best Mac CD-ROMs Selection / The Treasure Hunt / THGB.Dxr / 00052.ls < prev    next >
Encoding:
Text File  |  1994-09-16  |  356 b   |  19 lines
  1. on exitFrame
  2.   global text
  3.   if the soundBusy of 1 then
  4.     go(the frame)
  5.   else
  6.     puppetSound(0)
  7.     if chapter then
  8.       set the volume of sound 1 to 256
  9.       set the volume of sound 2 to 256
  10.       go("story" & text, "THAtitle")
  11.     else
  12.       if bedtime then
  13.         set bedtime to bedtime + 1
  14.         go("THH")
  15.       end if
  16.     end if
  17.   end if
  18. end
  19.